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import com. corticon. reactor. engine. *; 

import com. corticon. reactor .util. *; / E4Q 

import com. corticon. reactor. MaxLoopsExceededException; \ OiCi 




class ProfilePerson implements IRulesheetExe { 

public void execute (TupleSetManager lTSMgr)* 

throws CcReactorEngineException, MaxLoopsExceededException { 

DataManager aDataMgr = lTSMgr .getDataMgr () ; 

boolean jumpOut; 

int runs = 0; 

int level = 1; 

boolean active - true; 

while (runs =- 0 | | aDataMgr .isModified () ) { 
if (! active) level++; 
active=false; 

lTSMgr. genTupleSet("b", "Borrower") ; 
String[] IstrArrOOOOOOOl = {"b"}; 

lTSMgr. joinTupleSets("ProfilePerson_nonconditional_040'MstrArr00000001) ; 
if (runs==0) { 

lTSMgr. actOnTupleSet ("Prof ilePerson_nonconditionalJ)40", 

classProfilePerson_nonconditional_040) ; 

active=true; 

^ aDataMgr . clearWatch ( "Prof ilePerson_nonconditional_040" ) ; 

lTSMgr . genTupleSet ( "Loan" ) ; 

lTSMgr. extendTupleSet ("Loan. borrower", "Loan", "borrower") ; 
String[] lstrArr00000002 = { "Loan .borrower" } ; 

lTSMgr. joinTupleSets ("Prof ilePerson_nonconditional_041 ", lstrArr00000002 ) ; 
if (runs==0) { 

lTSMgr. actOnTupleSet ("Prof ilePerson_nonconditional_041", 

classProfilePerson_nonconditional_041) ; 

active=true; 

^ aDataMgr.clearWatch("ProfilePerson_nonconditionalJ)41") / 

lTSMgr . restrictTupleSet ( "b" , 

"ProfilePerson_condition_048values_2 006", 

classProfilePerson_condition_048values 2 006); 

String[] lstrArr00000003 = 
{"ProfilePerson_condition_048values_2 006", }; 

lTSMgr. unionTupleSets ( "Prof ilePerson_ruleJ)66Prof ilePerson condition 048", 
lstrArr00000003) ; 
StringH lstrArr00000004 = 

{"b", "ProfilePerson_rule__066ProfilePerson_condition 048"} ; 

lTSMgr. joinTupleSets ("ProfilePerson_rule_066" / lstrArr000000~04) ; 
if (runs==0) { 

aDataMgr . clearWatch ( "Prof ilePerson_rule_066" ) ; 

jumpOut = lTSMgr. actOnTupleSet ("ProfilePerson_rule_066", 

classProfilePerson_thenJ)62) ; 

active=true; 

} 

if (runs==0) { 

jumpOut = lTSMgr. actOnTupleSet ("Prof ilePerson_rule_066", 

classProfilePerson_then_063) ; 
active=true; 

} 

lTSMgr . restrictTupleSet ( "b", 

"ProfilePerson_condition_045values_l 004", 

classProfilePerson_condition_045values 1 004); 
String [] lstrArr00000005 = 
{"ProfilePerson_condition_045values_l 004", } ; 

lTSMgr. unionTupleSets (" Prof ilePerson_rule_061Prof ilePerson_condition 045", 

lstrArr00000005) ; ~ 
String [] lstrArr00000006 = 

{"b", "ProfilePerson_rule_06lProfilePerson_condition_045"}; 
lTSMgr. joinTupleSets ("Prof ilePerson_ruleJ)61", lstrArr00000006) ; 
lTSMgr. subtractTupleSet ( "Prof ilePerson_rule J)61" , 

"ProfilePerson_rule_066") ; 
if (runs==0) { 

aDataMgr . clearWatch ( "Prof ilePerson_rule_061 " ) ; 

jumpOut = lTSMgr. actOnTupleSet ("ProfilePerson rule 061", 

classProfilePerson_then_057) ; 

active=true; 

FIG. 14 
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k , if (runs==0) { 

jumpOut = ITSMgr . actOnTupleSet ("ProfilePerson_rule__061", 

classProfilePerson_then_058) ; 

active=true; 

} 

ITSMgr . restrictTupleSet ( "b" , "Prof ilePerson_condition_042values_0 001 " , 

classProfilePerson_condition_042values_0 001) ; 

String [] lstrArr00000007 = 
{ "ProfilePerson_condition_042values_0 001", } ; 

ITSMgr. unionTupleSets ( "Prof ilePerson__rule_056ProfilePerson_condition_042", 

lstrArr00000007) ; 
String [] lstrArr00000008 = 

{ "b", "ProfilePerson_rule_056ProfilePerson_condition_042"} ; 
ITSMgr . joinTupleSets { "Prof ilePerson_rule_056" , lstrArr00000008 ) ; 
ITSMgr . subtractTupleSet ( "Prof ilePerson_rule_056" , 

"ProfilePerson_rule_061") ; 
ITSMgr . subtractTupleSet ( "Prof ilePerson_rule_056" , 

"ProfilePerson_ruleJ366") ; 
if (runs==0) { 

aDataMgr . clearWatch ( "Prof ilePerson_rule_056" ) ; 

jumpOut = ITSMgr .actOnTupleSet ("Prof ilePerson_rule_05 6", 
classProfilePerson_then_052) / 

active=true; 

} 

if (runs==0) { 

jumpOut = ITSMgr . actOnTupleSet { "Prof ilePerson_rule_056" , 

classProfilePerson_then_053) ; 
active=true; 

} 

runs++; 

if (runs ==100) 

throw new MaxLoopsExceededException ( "Max Loops Exceeded"); 

) 

} 

class ProfilePerson_nonconditional__040 implements IAction { 
public void fire (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity new_Loan « 
aDataMgr . addNewEntity (lTuple, "Loan") ; 

GenericEntity Loan = lTuple .getEntity ("Loan" ) ; 

if (Loan == null) return ; 

GenericEntity b « lTuple .getEntity ("b") ; 

if (b == null) return ; 

b . setAssociation { "loan" , new_Loan) ; 

} 

} 

class ProfilePerson_nonconditional_041 implements IAction { 
public void fire (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity Loan = lTuple . getEntity ( "Loan") ; 
if (Loan == null) return ;; 
GenericEntity Loan_borrower = 
lTuple . getEntity ( "Loan . borrower" ) ; 

if (Loan_borrower == null) return ;; 
Loan_borrower . setAttribute ( "name", "Eric") ; 

} 

} 

public class Prof ilePerson_condition_048values_2 006 implements 

ICondition { 

public boolean test (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple . getEntity ( "b" ) ; 
if (b == null) return false; 
BigDecimal b monthlyDebt = 

(BigDecimal)b.getAttribute ("monthlyDebt") ; 

if (b monthlyDebt == null) return false; 

return b monthlyDebt . compareTo ( 

(Object)new Biglnteger ("3000") ) > 0 ; 

} 

} 
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class ProfilePerson_then_062 implements IAction { 

public void fire (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple . getEntity ( "b" ) ; 
if (b == null) return ;; 



b. setAttribute ("dProfile", "noway") ; 



} 



class ProfilePerson_then_063 implements IAction { 

public void fire (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple . getEntity ( "b" ) ; 
if (b == null) return ;; 



chance", b) ; 



ICondition { 



aDataMgr. addNewMessage ("Info", "High Debtors have no 



} 



> 

public class Prof ilePerson_condition_045values_l 004 implements 

public boolean test (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple. getEntity ("b") ; 
if (b == null) return false; 
BigDecimal b monthlylncome = 

(BigDecimal)b.getAttribute ("monthlylncome") ; ; 

if (b monthlylncome =- null) return false; 

return b monthlylncome . compareTo ( 

(Object)new Biglnteger { "3000" ) ) > 0 ; 



} 



} 



ICondition { 



class Prof ilePerson_then_057 implements IAction { 

public void fire (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple . getEntity ( "b") ; 
if (b -= null) return ; 
b. setAttribute ("dProfile", "low") ; 

} 

} 

class ProfilePerson_then_058 implements IAction { 

public void fire (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple. getEntity ("b") ; 
if (b null) return ; 
aDataMgr . addNewMessage ( "Info" , 
"High income people are lower risk.",b); 



} 



} 



public class ProfilePerson_condition_042values_0 001 implements 

public boolean test (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple . getEntity ( "b" ) ; 
if (b == null) return false; 

Biglnteger b age = (Biglnteger) b. getAttribute ( "age") ; 

if (b age == null) return false; 

return b age. compar eTo ( (Object ) new Biglnteger ( "25" )) < 0 



} 



} 



class Prof ilePerson_then_052 implements IAction { 

public void fire (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple . getEntity ( "b" ) ; 
if (b =*= null) return ; 
b. setAttribute ("dProfile", "high") ; 

} 

) 



risk,",b) , 



class ProfilePerson_then_053 implements IAction { 

public void fire (Tuple lTuple, DataManager aDataMgr) { 
GenericEntity b = lTuple, getEntity ("b") ; 
if (b == null) return ; 

aDataMgr . addNewMessage ("Info", "Younger people are higher 

} 
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IAction classProf ilePerson_nonconditional_040 = new ProfilePerson_nonconditional_040 ( ) ; 

IAction classProf ilePerson_nonconditional_04l = new 
Prof ilePerson_nonconditional_041 ( ) ; 

ICondition classProfilePerson_condition_048values_2 006 - 

new Prof ilePerson_condition_048values_2 006 ( ) ; 

IAction classProf ilePerson_then_062 = new Prof ilePerson_then_062 ( ) ; 

IAction classProf ilePerson_then_063 = new Prof ilePerson_then__063 { ) ; 

ICondition classProfilePerson_condition_045values_l 004 = 

new ProfilePerson_condition_045values__l 004 () ; 

IAction classProf ilePerson_then_057 = new Prof ilePerson_then_057 ( ) ; 

IAction classProf ilePerson_then_058 = new ProfilePerson_then_058 ( ) ; 

ICondition classProf ilePerson_condition_042values_0 001 ■ 

new Prof ilePerson_condition_042values_0 001 { ) ; 

IAction classProf ilePerson_then_052 = new ProfilePerson_then_052 ( ) ; 

IAction classProf ilePerson_then_053 = new Prof ilePerson_then_053 ( ) ; 

} 
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from com. cort icon. crml import OclString 
from com. corticon. crml import OclDate 
from com. corticon. crml import OclLiteral 
from com. corticon . crml import Biglnteger 
from com. corticon. crml import BigDecimal 
from com. corticon. reactor .engine import ICondition 
from com. corticon. reactor. engine import IAction 
from com. corticon. reactor. engine import IQualifier 
from com. corticon. reactor .util import IRulesheetExe 
from com. corticon. reactor import MaxLoopsExceededException 
from java.lang import Boolean 
from java.lang import String 



class Prof ilePerson (IRulesheetExe) : 
def execute (self , ITSMgr) : 

"@sig public void execute (com. corticon . reactor . engine .TupleSetManager ITSMgr) " 
aDataMgr = ITSMgr . getDataMgr ( ) 
runs = 0 
level = 1 
active = 1 

while (runs == 0 or aDataMgr .isModifiedO ) : 
if (not active) : 
level+=l 
active=0 

ITSMgr . genTupleSet ( ' Person ' ) 
ITSMgr . restrictTupleSet ( 1 Person ' , 

' Prof ilePerson_condition_021values_0 017 1 , 

self .classProfilePerson_condition_021values_0 017) 

ITSMgr . unionTupleSets ( ' Prof ilePerson_rule_033Prof ilePerson_condition_021 

[ 1 ProfilePerson_condition_021values_0 017 1 ] ) 

ITSMgr . joinTupleSets ( ' ProfilePerson_rule_033 ' , 

[ 1 Person 1 , ■ Prof ilePerson_rule_033ProfilePerson_condition_021 ' 3 ) 
if (runs==0) : 

aDataMgr . clearWatch ( ' Prof ilePerson_rule_033 1 ) 

jumpOut - 

ITSMgr. actOnTupleSet ( ' ProfilePerson_rule_033 ' , 

self . classProfilePerson_thenJD30) 
active=l 

ITSMgr . restrictTupleSet ( 1 Person ' , 

• Prof ilePerson_condition_024values_l 019 ' , 

self .classProfilePerson_condition_024values_l 019) 

ITSMgr . restrictTupleSet ( ' Person 1 , 

•ProfilePerson_condition_026values_2 022 ' , 

self .classProf ilePerson_condition_026values_2 022) 

ITSMgr . restrictTupleSet ( ' Person 1 , 

' Prof ilePerson_condition_028values_3 023 1 , 

self . classProfilePerson_condition_028values_3 023) 

ITSMgr . unionTupleSets ( ' ProfilePerson_rule_04lProfilePerson_condition_024 
[ 1 Prof ilePerson_condition_024values_l 019 1 ] ) 

ITSMgr .unionTupleSets ( ' ProfilePerson_rule_041ProfilePerson_condition_026 
[ ' Prof ilePerson_condition_026values_2 022 ' ) ) 

ITSMgr .unionTupleSets { ' Prof ilePerson_rule_04lProf ilePerson_condition_028 
[ ' ProfilePerson_condition_028values_3 023 ' J ) 

ITSMgr . joinTupleSets ( 1 Prof ilePerson_rule_041 1 , 

[ 1 Person' , 1 Prof ilePerson__rule_04lProf ilePerson_condition_024 1 , 
1 ProfilePerson_rule_04lProfilePerson_condition_026 l , 
' ProfilePerson_rule_04lProf ilePerson_condition_028 ' ] ) 

if (runs==0) : 

aDataMgr. clearWatch ( ■ ProfilePerson_rule_041 1 ) 

jumpOut = 

ITSMgr . actOnTupleSet { ' Prof ilePerson_rule_04 1 ' , 

self . classProf ilePerson_then_034 ) 
active=l 
runs+=l 

if (runs — 0) : 

ITSMgr. clear () 
if (runs ==100) : 

raise MaxLoopsExceededException ( 'Max Loops Exceeded 1 ) 



FIG. 15 
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def init (self) : 

class ProfilePerson_condition_021values_0 017 ( ICondition) : 

def test (this, lTuple, aDataMgr) : 

"@sig public boolean test( 

com. corticon . reactor . engine . Tuple lTuple , 
com. corticon. reactor .engine . DataManager aDataMgr) " 
Person = lTuple . getEntity (' Person ' ) 
if Person -= None : return 0 

Person smoker = Person. getAttribute (' smoker ' ) 

if Person smoker == None : return 0 

return Person smoker 

self .classProfilePerson_condition_021valuesJ3 017= 

Prof ilePerson_condition_021values_0 017 ( ) 

class ProfilePerson_then_030 (IAction) : 
def fire (this, lTuple, aDataMgr) : 
"@sig public void f ire ( 

com. corticon . reactor . engine . Tuple 

lTuple , com. corticon . reactor . engine . DataManager 

aDataMgr) " 

Person = lTuple .getEntity (' Person' ) 
if Person == None : return None 

Person risk = Person. setAttribute (' risk 'High ' ) 

self .classProfilePerson_then_030=ProfilePerson_then_030 ( ) 

class ProfilePerson_condition_024values_l 019 (ICondition) : 

def test (this, lTuple, aDataMgr) : 

"@sig public boolean test ( 

com. corticon . reactor . engine . Tuple lTuple , 
com. corticon. reactor. engine. DataManager aDataMgr) " 
Person = lTuple . getEntity (' Person' ) 
if Person == None : return 0 

Person age = Person . getAttribute (' age 1 ) 

if Person age » None : return 0 

return Person age .compareTo (Biglnteger ( ' 30 1 ) ) < 0 

self ,classProfilePerson_condition_024values_l 019* 

Prof ilePerson_condition_024values_l 019 ( ) 

class ProfilePerson_condition_026values_2 022 (ICondition) : 

def test (this, lTuple, aDataMgr) : 

"@sig public boolean test( 

com . corticon . reactor . engine . Tuple lTuple , 
com. corticon. reactor. engine. DataManager aDataMgr) " 
Person = lTuple . getEntity (' Person 1 ) 
if Person == None : return 0 

Person sex = Per son. getAttribute ( 1 sex' ) 

if Person sex « None : return 0 

return Person sex== ' F * 

self .classProfilePerson_condition_02 6values_2 022= 

ProfilePerson_condition__02 6values_2 022 ( ) 

class ProfilePerson_condition_028values_3 023 (ICondition) : 

def test (this, lTuple, aDataMgr) : 

"@sig public boolean test( 

com . corticon . reactor . engine . Tuple lTuple , 
com. corticon. reactor. engine. DataManager aDataMgr) " 
Person = lTuple . getEntity (' Person' ) 
if Person =- None : return 0 

Person married = Person. getAttribute ( 'married' ) 

if Person married None : return 0 

return Person married 

self . classProf ilePerson_condition_028values_3 023= 

Prof ilePerson_condition_028values_3 023 ( ) 
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class ProfilePerson_then_034 (IAction) : 

def fire (this, ITuple, aDataMgr) : 
"@sig public void fire( 

com. corticon. reactor .engine .Tuple ITuple, 
com . corticon . reactor . engine . DataManager aDataMgr ) " 
Person = ITuple .getEntity ( 1 Person* ) 
if Person == None : return None 

Person risk = Person. setAttribute (' risk' , 'Low' ) 



self .classProfilePerson_then_034=ProfilePersonJ:hen_034 ( ) 
self. ok = 1 



FIG. 15(cont.) 
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[RIUUE1] IF Marker.color = 'Red' THEN Marker.warning := true 

[RULE2] IF Marker.warning = true AND Marker. ignore = true THEN Marker.color := 'Yellow' 
[RULE3] IF Marker.warning = true AND Marker.ignore = false THEN Marker.color := 'Red' 
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) 



\ 



Condition 
Marker.warning : 
true 



Condition 
Marker.ignore 
= true 



Condition 
Marker.ignore 
= false 



Action 
Marker.warning 
:= true 




Condition 
Marker.color 
= 'Red* 



RULE1 



RULE2 



RULE3 



Action 
Marker.color 
:= 'Red' 



Action 
Marker.color 
:= Yellow' 



CONVEX SUBSET: 

LOGICAL LOOP 1 (edges in BOLD)= color : RULE1 : warning : RULE2 : color 
LOGICAL LOOP 2 = color : RULE1 : warning : RULE3 : color 
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